Option Explicit
Sub O_Sample013()
    Dim myRef As VBIDE.Reference
    Dim myStr As String
    'myStr = "C:\WINDOWS\SYSTEM\FM20.DLL"        'wnsW禡w
    myStr = "C:\WINDOWS\SYSTEM32\FM20.DLL"      'XPtνХγo
    With ThisWorkbook.VBProject.References
        .AddFromFile myStr
        MsgBox "bޥζذѷӳ]wsW" & .Item(.Count).Name & "C"
    End With
End Sub


